(format-replace-strings): Fix value of TO in REVERSE case.

diff --git a/lisp/format.el b/lisp/format.el
index 3bfe556364ed39191f4eccde0a890693407982ab..73eabc1730f341d3cb67d0d624e28920b64ba30f 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -425,7 +425,7 @@ Optional args BEG and END specify a region of the buffer on which to operate."
       (if end (narrow-to-region (point-min) end))
       (while alist
        (let ((from (if reverse (cdr (car alist)) (car (car alist))))
-             (to   (if reverse (car (cdr alist)) (cdr (car alist)))))
+             (to   (if reverse (car (car alist)) (cdr (car alist)))))
          (goto-char beg)
          (while (search-forward from nil t)
            (goto-char (match-beginning 0))